program Project1; //Zadanie 4.6

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n = 10;

  type
    macierz = array[1..n, 1..n] of integer;

var
  i, j, suma : integer;
  tablica : macierz;

begin
  {wpisywanie do tablicy}
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          if n = i + j - 1 then
            tablica[i,j]:=i
          else
          tablica[i,j]:=0;
        end; {j}
    end;   {i}   {Koniec wpisywania}

  {Wydruk zawartosci tablicy}
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          Write(tablica[i,j]:2,' ');
        end; {j}
       writeln;
    end;   {i}
  {Koniec wydruku tablicy}

  {Obliczanie sumy wyroznionych elementow}
  suma:=0;
  Writeln;

 for i:=1 to n do
   suma:=suma+tablica[i,n-i+1];

  Writeln('Suma wyroznionych w zadaniu elementow wynosi ',suma, '.');

  Readln; //czeka na nacisniecie klawisza Enter
end.


